inherited frmCadBalanco: TfrmCadBalanco
  Left = 252
  Top = 94
  Caption = 'Cadastro de Balan'#231'o'
  ClientHeight = 400
  ClientWidth = 520
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 363
    Width = 520
  end
  inherited Panel2: TPanel
    Width = 520
    Height = 363
    inherited Panel3: TPanel
      Width = 518
      Caption = 'Balan'#231'os'
      inherited GroupBox1: TGroupBox
        Left = 439
      end
    end
    inherited Panel4: TPanel
      Width = 518
      Height = 321
      object Label1: TLabel [0]
        Left = 16
        Top = 8
        Width = 9
        Height = 13
        Caption = 'Id'
        FocusControl = DBEdit1
      end
      object Label2: TLabel [1]
        Left = 16
        Top = 48
        Width = 48
        Height = 13
        Caption = 'Descri'#231#227'o'
        FocusControl = DBEdit2
      end
      object Label6: TLabel [2]
        Left = 16
        Top = 160
        Width = 58
        Height = 13
        Caption = 'Observacao'
        FocusControl = DBMemo1
      end
      object Label7: TLabel [3]
        Left = 16
        Top = 88
        Width = 41
        Height = 13
        Caption = 'Empresa'
      end
      object Label3: TLabel [4]
        Left = 16
        Top = 136
        Width = 30
        Height = 13
        Caption = 'In'#237'cio:'
      end
      object Label4: TLabel [5]
        Left = 187
        Top = 136
        Width = 19
        Height = 13
        Caption = 'Fim:'
      end
      object DBText1: TDBText [6]
        Left = 64
        Top = 136
        Width = 42
        Height = 13
        AutoSize = True
        DataField = 'BAL_DATAINICIO'
        DataSource = DtSrc
      end
      object DBText2: TDBText [7]
        Left = 224
        Top = 136
        Width = 42
        Height = 13
        AutoSize = True
        DataField = 'BAL_DATAFIM'
        DataSource = DtSrc
      end
      inherited SbHints: TStatusBar
        Top = 298
        Width = 510
      end
      object DBEdit1: TDBEdit
        Left = 16
        Top = 24
        Width = 134
        Height = 21
        Hint = 'C'#243'digo do Balan'#231'o. Este valor n'#227'o pode ser alterado'
        TabStop = False
        DataField = 'BAL_IDFBALANCO'
        DataSource = DtSrc
        Enabled = False
        ReadOnly = True
        TabOrder = 1
      end
      object DBEdit2: TDBEdit
        Left = 16
        Top = 64
        Width = 489
        Height = 21
        Hint = 'Descri'#231#227'o do Balan'#231'o'
        DataField = 'BAL_DESCRICAO'
        DataSource = DtSrc
        TabOrder = 2
      end
      object DBMemo1: TDBMemo
        Left = 16
        Top = 176
        Width = 489
        Height = 89
        Hint = 'Observa'#231#245'es sobre o balan'#231'o'
        DataField = 'BAL_OBSERVACAO'
        DataSource = DtSrc
        TabOrder = 4
      end
      object btn_finalizar: TBitBtn
        Left = 16
        Top = 272
        Width = 97
        Height = 25
        Hint = 'Finaliza o balan'#231'o'
        Caption = 'Finalizar Balan'#231'o'
        Enabled = False
        TabOrder = 5
        OnClick = btn_finalizarClick
      end
      object DBLookupComboBox1: TDBLookupComboBox
        Left = 16
        Top = 104
        Width = 489
        Height = 21
        Hint = 'Nome da Empresa em que se far'#225' o balan'#231'o'
        DataField = 'EMP_CODIGO'
        DataSource = DtSrc
        KeyField = 'EMP_CODIGO'
        ListField = 'EMP_FANTAS'
        ListSource = DS_empresas
        TabOrder = 3
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Balanco
    Left = 360
    Top = 48
  end
  object DS_empresas: TDataSource
    DataSet = SQLC_Empresas
    Left = 281
    Top = 49
  end
  object SQLC_Empresas: TSQLClientDataSet
    CommandText = 'select EMP_CODIGO, EMP_FANTAS from EMPRESAS'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 209
    Top = 56
    object SQLC_EmpresasEMP_CODIGO: TSmallintField
      FieldName = 'EMP_CODIGO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object SQLC_EmpresasEMP_FANTAS: TStringField
      FieldName = 'EMP_FANTAS'
      Required = True
      Size = 40
    end
  end
  object SQLC_Balanco: TSQLClientDataSet
    CommandText = 'select * from BALANCOS'#13#10'where BAL_IDFBALANCO = :BAL_IDFBALANCO'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftInteger
        Name = 'BAL_IDFBALANCO'
        ParamType = ptInput
      end>
    OnReconcileError = SQLC_BalancoReconcileError
    DBConnection = DtmGeral.ConexaoBanco
    Left = 419
    Top = 56
    object SQLC_BalancoBAL_IDFBALANCO: TIntegerField
      FieldName = 'BAL_IDFBALANCO'
      Required = True
    end
    object SQLC_BalancoBAL_DESCRICAO: TStringField
      FieldName = 'BAL_DESCRICAO'
      Required = True
      Size = 30
    end
    object SQLC_BalancoEMP_CODIGO: TSmallintField
      FieldName = 'EMP_CODIGO'
      Required = True
    end
    object SQLC_BalancoBAL_DATAINICIO: TSQLTimeStampField
      FieldName = 'BAL_DATAINICIO'
      Required = True
    end
    object SQLC_BalancoBAL_DATAFIM: TSQLTimeStampField
      FieldName = 'BAL_DATAFIM'
    end
    object SQLC_BalancoBAL_OBSERVACAO: TMemoField
      FieldName = 'BAL_OBSERVACAO'
      BlobType = ftMemo
      Size = 1
    end
    object SQLC_BalancoBAL_USUCOD: TStringField
      FieldName = 'BAL_USUCOD'
      Required = True
      Size = 3
    end
  end
end
